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//DDE 
//STEP 2 
//DD3 
//DD4 
//STEP 3 



EXEC PG«4pgOG01k 

DD DSN4 SAMPLB0]SP= 
DD DSN=SAMPLE2j)SF = SKR 
EXEC PGM=TBSTPBOC 
DD DSN=SAM?LB2, DISPOSES 
DO {)SN=50STFIS,0ISP=0LD 
EXEC PGM=SORT 
//SVSPSINT DD SYSOUT=A 
//SOBTOOl DD UBIT«D[SiC.SPACE={CVL, (5.1)) 
//SOKTIH DD DStv.SORTFiN.DISP=SHR 
//SOfiTOUT DD DSK'SORTFOUT, DI SP« (NEW. KEEP, DELEI E) , 
// UKIT=DISK, V0L=SEE=Y0La01. SPACE=(CYL. S). 

// DCB=(8E:PM=FE, LRECL-130, BlSSiZK=1000) 

//SYSIS DB * 

SORT FfELI)S=U5, 8, ZD. A). SIZE=E5O[)0 

/* 

// 
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IDENTIFiUTlQN DIVISIOK, 
PROGRAM- ID. iPBOGQli ; 

C0SFI3U8ATI0N 

ISPUT-OUTFUT 

FILE-COSTEOl , 

SBLECT ilSFlLE i ASSIGN TO EMROA-BS-S. 
SELECT OUTFiLE ASSIGN TO DD2-DA-DK-S. 
MTA DIVISIOS. 

SECTION. 
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iDl IN-SBC r 



FD OUTFILE 
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PROCEDURE 
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//lofe] 

//STEPl 

//DDI 

//DPS 

//m 

//PPMLIBD 
//PMLIBM 
//EXAMl 
//EXAM2 
//PDM8IPT 
P3HBCH 
/* 
// 



EXEC PGM=?R0Q01 

[)D DSS=SAmEl.DlSP=SHR 

1)1) l)St; = SAMPI.R2.DlSP =SHS _ 

EXEC PGM qPDMBTCKF 

DD DSti-SAMPLE3.D!SP=SHH 
DD DSN=I'DM2.LIBD.DiSP=Stt8 
DD DSH=P0M2.LIBM.DlSP=Stm 
DD »SH=PDM2.EXAMl.I)ISP=Sa8 
m DSN=P0MtEXAM2.1)fSP=Sa8 
DD *, , 

PG«°|PB0602| 
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CD DSN=S!iMPLE2,DISP=SH]i 2 5 0 f3 
DD DS>«=SOi?TFfK.DISP«OL]) 
EXEC PGM-SORT 
£)& SYSOUT»A 

m USIT"DISK,SPACE={C¥L, {5. i)) 

m DSB=SORTFIN,DiSP=SHR 

m D5N=SOBTF0UT,SiSP=(!JE». KEEP. DELETE) , 
US[T=I)ISK. Vt}L=SEfi=V0L001. SPACE= (Ci'L, 3), 
DCB=<RECFM=FB. LSECL=100. BLESIZE=1000) 



BlBS=(25.8.ZD..4),SiZE^E5000 
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